home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -krazy shooter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  895 b   |  29 lines
  1. 1 clr
  2. 2 bc=4:jc=10:jv=219:sc=7:bd=5
  3. 5 dim b(32),p(31),t(31),c(31),ch(82):li=31
  4. 8 ford=1to8:readd(d):next
  5. 9 ch(1)=66:ch(2)=78:ch(42)=67:ch(82)=77:ch(81)=66:ch(80)=78:ch(40)=67:ch(0)=77
  6. 10 poke53281,0:poke53280,bd:poke646,sc:print"[147][142]"
  7. 15 fora=0to39:poke55296+a,bc:poke56256+a,bc:poke1024+a,160:poke1984+a,160:next
  8. 20 fora=40to920step40:poke55296+a,bc:poke55335+a,bc:poke1024+a,160
  9. 25 poke1063+a,160:next
  10. 30 l=1524:poke54272+l,jc:pokel,jv
  11. 90 m=l
  12. 100 gosub400
  13. 105 d=int(rnd(1)*9):ifd=0then100
  14. 110 ifint(rnd(1)*2)thengosub300:goto100
  15. 200 l=l+d(d):ifpeek(l)=160thenl=m:goto100
  16. 260 poke54272+l,jc:pokem,32:pokel,jv:poke54272+m,sc
  17. 270 goto90
  18. 300 fora=0toli:ifb(a)=0thenv=a:a=li:next:goto320
  19. 310 next:return
  20. 320 ifpeek(l+d(d))<>32thenreturn
  21. 330 p(v)=d(d):t(v)=l+d(d):c(v)=ch(d(d)+41):b(v)=1:poket(v),c(v):return
  22. 400 a=0
  23. 405 ifb(a)thengosub420
  24. 410 a=a+1:ifa=li+1thenreturn
  25. 415 goto405
  26. 420 ifpeek(t(a)+p(a))=160thenpoket(a),32:b(a)=0:return
  27. 430 poket(a),32:t(a)=t(a)+p(a):poket(a),c(a):return
  28. 60000 data -41,-40,-39,-1,1,39,40,41
  29.